home *** CD-ROM | disk | FTP | other *** search
/ PCMania 27 / PCMania CD27_1.iso / pcmania / pov27 / arco3.pov < prev    next >
Text File  |  1994-10-28  |  4KB  |  129 lines
  1. #include "colors.inc"
  2. #include "stones.inc"
  3. #include "textures.inc"
  4. #include "shapes.inc"
  5.  
  6. camera{
  7.    location <4.5 16 -30>
  8.    look_at  <0 9 0>
  9. }
  10. object{        //10   -30
  11.    light_source{<8 90 -90> color White} 
  12. }   
  13. object{
  14.    light_source{<-10 22 -30> color Gray30} 
  15. }   
  16.  
  17. object{
  18.  intersection{  
  19.    box{<-100 0 30><100 100 30.1>} 
  20.    box{<-3 5 29.9><3 16 30.2> inverse}
  21.    //plane{<0 0 1> 30 texture{color Gray}}//checker color White color Black}}
  22.  }
  23.  texture{color Gray40}
  24. }
  25. object{
  26.    box{<-3 5 29.9><3 16 30.2>
  27.      texture{
  28.        image_map{
  29.          gif "fract003.gif"
  30.          map_type 0
  31.          interpolate 2
  32.        }
  33.        rotate<0 0 90>
  34.        scale<6 7 7>
  35.        //translate<0 -1 0>    
  36.     }
  37.   }
  38. }
  39. // Marco de la ventana
  40. // tiene un error
  41. object{
  42.   union{
  43.     box{<-4 4 29.5><-3 16.5 30>}
  44.     box{<-4 4 29.5><4 5 30>}
  45.     box{<3 4 29.5><5 16.5 30>}
  46.     box{<-4 16 29.5><4 17 30>}
  47.     //box{<0 19 29.5><4 19.5 30>} 
  48.  }   
  49.  texture{DMFWood3 scale <.5 .5 .5>}
  50. } 
  51. object{
  52.    plane{<0 1 0> 0 texture{color Black reflection .56}}
  53. }
  54. #declare columna=object{
  55.   union{  
  56.    box{<-1.5 0 0><1.5 2 2> }
  57.    quadric{ Ellipsoid scale<1.5 0.7 1.5> translate<0 2.5 1>}
  58.    quadric{Disk_Y scale<1 4.5 1> translate<0 7.5 1> texture{color Stone12}}
  59.    quadric{ Ellipsoid scale<1.5 .5 1.5> translate<0 12.15 1>}
  60.    intersection{Cone_Y scale<1.5 2 1.5> rotate<0 0 180 > translate<0 12 1>}
  61.    box{<-2.5 14 -1><2.5 14.5 3> }
  62.    quadric{Disk_Z scale<.5 .5 2> translate<-1.7 13.5 1> texture{Stone13}}
  63.    quadric{Disk_Z scale<.5 .5 2> translate<1.7 13.5 1> texture{Stone13}}
  64.   }
  65.   texture{Stone11}
  66. }
  67.  
  68. // Arco interior
  69. #declare arco_in=intersection{
  70.   difference{
  71.     quadric{Disk_Z scale<7 7.3 .5> translate<0 14.5 10>}
  72.     quadric{Disk_Z scale<6 6 .6> translate<0 14.5 10>}
  73.     box{<-7 4.6 9><7 14.5 11>}
  74.   }
  75.   texture{Stone22}
  76. }
  77.  
  78. // Arco exterior
  79. #declare arco_ex=intersection{
  80.   difference{
  81.     quadric{Disk_Z scale<8 10 .8> translate<0 14.5 9.6>}
  82.     quadric{Disk_Z scale<7 7.25 .9> translate<0 14.5 9.6>}
  83.     box{<-9 -12 -19><9 14.5 15> }
  84.   }  
  85.   texture{Grnt24 scale<5 5 5>}
  86. }
  87. object{
  88.   difference{
  89.     box{<-100 14.5 19.5><100 100 19.7>}
  90.     quadric{Disk_Z scale<8 10 .8> translate<16 14.5 19.6>}
  91.     quadric{Disk_Z scale<8 10 .8> translate<32 14.5 19.6>}
  92.     quadric{Disk_Z scale<8 10 .8> translate<-16 14.5 19.6>}
  93.     quadric{Disk_Z scale<8 10 .8> translate<-32 14.5 19.6>}
  94.     quadric{Disk_Z scale<8 10 .8> translate<0 14.5 19.6>}
  95.     quadric{Disk_Z scale<8 10 .8> translate<-48 14.5 19.6>}
  96.   }
  97.   texture{Stone1}
  98. }
  99. object{columna translate<-8 0 20>}
  100. object{columna translate<8 0 20>}
  101. object{columna translate<-24 0 20>}
  102. object{columna translate<24 0 20>}
  103. object{columna translate<-40 0 20>}
  104.  
  105. object{arco_in translate<0 0 10>}
  106. object{arco_ex translate<0 0 10>}
  107. object{arco_in translate<-16 0 10>}
  108. object{arco_ex translate<-16 0 10>}
  109. object{arco_in translate<16 0 10>}
  110. object{arco_ex translate<16 0 10>}
  111.  
  112. object{arco_in translate<-32 0 10>}
  113. object{arco_ex translate<-32 0 10>}
  114. object{arco_in translate<32 0 10>}
  115. object{arco_ex translate<32 0 10>}
  116. object{arco_in translate<-48 0 10>}
  117. object{arco_ex translate<-48 0 10>}
  118.  
  119. // Mesa
  120. object{
  121.   union{
  122.     quadric{Disk_Y scale<1 1.5 1> translate<-2 1.5 1>}
  123.     quadric{Disk_Y scale<1 1.5 1> translate<2 1.5 1>}
  124.     quadric{ Ellipsoid scale<5 .2 1.5> translate<0 3 1> texture{Stone24}}
  125.   }
  126.   scale<2.5 1.6 1.5>
  127.   texture{Stone6 scale<.5 .5 .5>} 
  128. }
  129.